home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 8 / DISK0386.ZIP / WASSIG.FOR < prev    next >
Text File  |  1985-05-02  |  451b  |  26 lines
  1. $NOFLOATCALLS
  2. $STORAGE: 2
  3.     SUBROUTINE WASSIG(IUNIT,NAME)
  4. C
  5. C
  6.     CHARACTER*1 NAME(50)
  7.     INTEGER*2 IUNIT
  8.     CHARACTER*20 WK
  9.     CHARACTER*1 WK1(20)
  10.     EQUIVALENCE(WK,WK1(1))
  11. C JUST TRY AND NULL FILL A NAME TO USE.
  12.     DO 1 N=1,20
  13.     WK1(N)=' '
  14. 1    CONTINUE
  15.     DO 2 N=1,20
  16.     II=ICHAR(NAME(N))
  17.     IF(II.LT.32)GOTO 3
  18.     WK1(N)=CHAR(II)
  19. C1    CONTINUE
  20. 2    CONTINUE
  21. 3    OPEN(IUNIT,FILE=WK,STATUS='NEW',ACCESS='SEQUENTIAL',
  22.      1  FORM='FORMATTED')
  23.     RETURN
  24.     END
  25.  
  26.